home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / DACROSS.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  1KB  |  75 lines
  1. ;dacross  --  TIMWIN DEMO   
  2. ;             Abingdon cross benchmark
  3. ;
  4. ; Expected: image in 'a'
  5. ;
  6. #include timdefs.h
  7. #include helpdefs.h
  8.  
  9. parms
  10.  int windis
  11.  file timdemo
  12.  int hmode
  13. endparms
  14.  
  15. int nn
  16.  
  17. ;test availability images
  18. if (((improp m16) & PIX16) != PIX16) stop "No 16-bits image available"
  19.  
  20. cls
  21. ; First generate Abingdon cross image
  22. dis p
  23. era16 m16
  24. for nn = 1 to 6
  25. ;  dump 222
  26.   noise nn
  27.   sum m16 1
  28. endfor
  29.  
  30. cp16 m16 p 6 /
  31.  
  32. curs 128 128
  33. frmt 32 196
  34. add pc 32
  35. frmt 196 32
  36. add pc 32
  37. save a
  38.  
  39. *windispl h (windis+NO_DITHER+WINLUT1)
  40. help timdemo DACrossBench, hmode
  41.  
  42. ;perform benchmark in display (slower due to overhead)
  43. lut 3
  44.  
  45. begin:
  46. dis p
  47.  
  48. beep
  49.  unif a 33
  50.  thre  156
  51.  lsk  1
  52. beep
  53. *windispl i (windis+NO_DITHER+WINLUT3)
  54.  
  55. print "Press key for Across benchmark in fast memory"
  56. pause 
  57. print ""
  58.  
  59. ;perform benchmark in fast memory
  60. dest b
  61. beep
  62.  unif a 33
  63.  thre  156
  64.  lsk  1
  65. beep
  66. copy b p
  67. *windispl h (windis+NO_DITHER)
  68. nn =  "Once more? (Yes = 1, No = 0)> "
  69. if nn == 0 stop
  70. cls
  71.  
  72. goto begin
  73.  
  74. stop
  75.